#!/usr/bin/perl -w

$sep = "-" x 50 . "\n";

$file = "test.dat";
open (RF, $file) or die "Can't open $file";
while ($z = <RF>) {
	print $z;
}
close RF;
print $sep;

foreach $file( <re*.pl> ) {
	print $file . "\n";
}
print $sep;

@files = <re*.pl>;
print join "::",@files;
print "\n";
print $sep;

$dir = ".";
opendir (DIR,$dir) or die "Can't open $dir";
while ($file = readdir (DIR)) {
	print $file . "\n";
}
closedir(DIR);
